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Apout tHE MAGAZINE 


Australian Visual Developers' Forum is published Bi- 
Monthly by GUI Computing Pty Ltd. All correspondence, 
special requests, etc should be addressed to the Editor, Aus- 
tralian Visual Developers’ Forum, at the address below. We 
welcome all hints, tips, source code and letters regarding 
Visual Development, in whatever language. 


While every effort is made to ensure the accuracy of the 
code and comment in this magazine, mistakes can and do 
occur. GUI Computing Pty Ltd cannot be held responsible 
for any errors and/or omissions, and readers should be 
aware that they use code from this magazine at their own 
risk. 


Australian Visual Developers’ Forum is a registered busi- 
ness name of GUI Computing Pty Ltd. ACN 052 933 776. 
Visual Basic, Visual C++, Windows and MS-DOS are 
Trade Marks of Microsoft Corporation and Microsoft is a 
Registered Trade Mark of Microsoft Corporation in the US 
and other countries. 


All other Trade Marks and Registered Names used within 
this magazine are acknowledged as the property of their re- 
spective owners. Unless otherwise noted, articles in Aus- 
tralian Visual Developers' Forum remain entirely the prop- 
erty of GUI Computing Pty Ltd and may not be reprinted or 
reused in any form without the prior written consent of GUI 
Computing Pty Ltd. 


CONVENTIONS 


In all of cur Source Code Listings, we use the symbol (<7) 
to denote that the line carries on from the last. Therefore, 
the line : 

Print “This is a 2 

test line" 

will read : 

Print "This is a test line" 

when typed. 
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Tue Heeuer... ay VB 


Which R&D guru for GUI has taken to giving flowers to GUI's 
latest employee, the gorgcous Luisa Marrone? Now that'll 
teach Luisa to have one too many at staff get-togethers. 


GUI's staff managed to attend Iterated Systems' recent soiree 
(to launch a new version of the excellent, if misspelled, 
ColorBox Pro) recently. And, by all accounts, really enjoyed 
themselves. Hey, someone has to apologise after any deceni 


party! 


The venerable Goodhew has moved from Microsoft's 
Developer Relations Group to the "greener" pastures of Gupta 
Technologies. Which is probably not such an Earth-shattering 
event. But the manner of his leaving is. On his day of 
departure, so the story goes, he attended a.meeting of MS 
heavies, where everyone was asked to introduce themselves 
and tell the assembled ssa where they worked. Allegedly, 

= , the venerable Goodhew 
| attempted to avoid the group 
introductiog; but was finally 
pushed into an answer... 
"My name's Tony Goodhew, 
F and I work ‘for Gupta" was 
| probably NOT the response 
| expected! Certainly earned 
E Tony (pictured left a little 
F worse for wear at the recent 
VMark Conference with 
GUI's Stephan Grieger) a 
slightly eafticr-than-expect 
= exeunt fron:MS. 


I wonder will Microsoft Australia ever get the MSCP for VB 
exam requirements together? Rumour (and some MS sources) 
now claim that, to get MSCP/VB status, an MSCP for 
Windows is also required. It's not in the USA, and by no 
means certain here. Stay tuned... and come to VBA '94 for the 
MSCP/VB cxam. No matter what format it*may or may not 
take. 


On the subject of exams, beware cheap imitations. While PC 
Developer is a fine magazine, it seems just a little deceptive to 
be for them to be offering Access "Professional Developer" 
certification - world-renowned Ken Getg,as speaker at the 
seminars or not. Word has it that MS were approached and 
rejected the idea of an Australian exam out of hand. In fact, PC 
Developer editor Eric Wilson actually floated the idea of him 
setting the MSCP/Access for worldwide consumption. Not 
surpisingly, Microsoft felt that wasn't such a flash idea. But 
there'll be a real MSCP/Access within a few months. 


In closing, on a sadder note, I discoveredk:my close friend of 
twelve menths, Marzipan the Burmese, de ad-on the front lawn 
a few weeks ago. Tessa, her replacement isa lovely cat, but 
I'll always miss Marzi, as will one of her greatest fans, VBA 
speaker Keith Pleas. Vale Marzi. 


P|] Newevenn() 


Obviously, the big NewEvent must be our announcement 
(finally!) of VBA '94... "just another Conference" would 
seem to be understating matters a bit when all delegates 
get a CD with the VB4 beta on board. I'm sure that's been 
done before, I just can't remember when. 


But wait, there's more.. Dan Appleman, Keith Plcas (the 
guy who wrote most of the MSCP exam), Jonathan Zuck, 
cx VB3 Data Access Program Manager Joe Robison, 
Microhelp's Tim O'Pry, Crystal's Allan McMordie and 
BugTrak Lite and over 80MB of the best of freeware / 
shareware on the CD, plus the Help files for most of the 
shipping VB addons. 


How much would you pay?... DON'T ANSWER. You also 
get Australia's best VB developers, like Jim Karabatsos, 
Terry Peters and Ashley Hubbard. And you get discount 
entrance to the one-day Crystal Developers' Conference. 
And you get the VB laboratory, where we'll have every 
conceivable VB addon on PCs waiting for you. And not 
for one day, but for two full days, with three streams 
running simultaneously. Send no moncy (actually, I'm 
lying about that bit - send money NOW}). 


But seriously, we're pretty proud of this year's event, 
which is designed to blow your socks off... despite the fact 
that it's in Sydney. I look forward to secing you there. 


Meanwhile, VB4 progresses slowly to its ultimate 
conclusion... and it will, thank goodness, include the 
ability to create OLE2 servers. But, in the interim, every 
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Tet: 03 646 4622 
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VBX vendor is scrambling to get OCX versions ready for 
market... and not all vendors are exactly unhappy about 
what used to be VB94 looking like VB95. The port to 
OCX is not always easy, it would seem. 


On a more local tack, I'm pleased to report that Graeme 
Taylors’ Software License Monitor was on the receiving 
end of an excellent review a couple of weeks ago in US PC 
Week. It ranked second only to the market leader in a 
comparative survey... not bad for a version 1.0. Those of 
you who thought it was version 2 must have been reading 
only the Australian Press Releases! It would seem that 
there‘are actually four classes of lie these days - lies, damn 
lies, statistics and software version numbers! 


Continuing the local tack, we finally have a shipping 
version of an Aussie VB _ addon that's been 
rumoured/knocking around for the past year or so... it was 
called PowrrrrChart/VB, but now comes out under the 
more approachable name of VB/Graphix. And, in a twist 
that certainly amuses me, is a MicroHelp product. I guess 
this is perhaps the final compliment to Australia's 
programming prowess. In any event, thank goodness it's 
finally shipping - it eats the competition alive! 


Last, but by no means least, expect a rcal version control 
system for VB (at under $A400 per developer) from the 
increasingly-aggressive InterSolv, to coincide with the 
release of VB4. By then, the much-rumoured and 
advertised (but not shipping!) ProjectWorks might also be 
a reality... but don't hold your breath. 
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S| Speco Ties 


I recently needed to import a sequential file through VB 
into an Access database. The sequential file was around 
80K in size which contained records in a random order. 
Each record needed to be screened because they applied to 
different areas in the Access database. For example, one 
record may be an add where as another may be an update. 
Therefore, with an update, I needed to search through the 
table, find the record and modify it. Quite a speed problem 
when the file can reach 1Mg in size. 


In my first attempt I simply read in cach record, decided 
whether to add or update. If I needed to add, I did an 
AddNew and when it was an update | would scarch the 
table finding the record and then do an Edit. This attempt 
on the 80K file took seven and a half minutes. Quite 
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In the second attempt I wrapped the entire process inside 
of a Begin and End Trans. This had the added bonus of 
making sure that if anything when wrong, you could 
rollback. As a consequence, the speed was increased to 
five minutes. Not to bad, but still not good enough if the 
file was going to increase to 1Mg. 


So, I then decided to read the sequential file twice. Once 
for Adds and then for Updates. Thinking this would slow 
the process down because of having to read the file 
character by character twice, I was pleasantly surprised to 
find that the speed actually increased from five minutes to 
two and a half and Disk Access was reduced significantly. 
Evidently, VB's sequential file access is extremely fast and 
sometimes it pays to read the file multiple times instead of 


unacceptable. 


Microsoft 


Tieing in loosely with the article 
on Speed Tips, I found that the 
sequential file I was importing 
could actually change every 
now and then when the EDI 
specification changed. I! was 
then faced with a major problem 
of how to maintain this 
application when and if this did 
occur. Should I save the format 
information in a type array or 
should I hard code it? The 
solution I opted for was to store 
the file specifications in an 
access table. This meant that 
when the sequential file 
changed. all I need do is change 
the table information and not 
the code itself. 


Here's how | did it. I created a 
table called ImportTbl with four 
fields in it. Those fields are as 
follows; 


Area: This contained which 
arca the record would apply to 
(or the Access Table where the 
information from the Sequential 
file would be saved into). This 
meant that I could store all table 
information for different 
sequential files into the one 
Access table. 


: ae : 


4. 


Se 


IMPORTING SEQUENTIAL FILES 


once. 


Field Name: This pointed to 


the field name in the Access | 


table where the information 
from the sequential file would 
finally reside. 


Fieid Start: This was the 
starting position of the field in 
the bne of text I would extract 
from the sequential file. 


Field Length: The length of 
the string I would return. 


All that was needed now was for 
me to find all the records 
matching what was in Area, and 
then to loop through the records 
one by one, extracting the field 
name, size and position and 
saving all the information 
directly into the Access table. 
This meant that the code was 
totally generic and that it could 
be used by all other routines. As 
a consequence, I could also 
write a routine which extracted 
the value of the ficid before 
saving it which was also totally 
generic. Refer to Figure | for 
the code to do this. 


Remember that the code was 
wrapped inside of a Begin and 
End Trans. 
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SS — = 


Function. GetParticularField (Area,? 


FieldName, SearchString} 

SQL$ = "Select * FromImportTbl? 
iWhere Area = '" + Area + ""v-andd 
FieldName = '" + FieldName +. "'" 


Set FieldDyn =? 
MDBFile.CreateDynaset (SOLS) 
FieldDyn.MoveFirst 
Fieldstart = 
;FieldDyn.Fieids ("FieldStart"”) 
| FieldLen =¢ 
|FieldDyn.Fields("FieldLength") 
GetParticularField = 
iMid$ (SearchString, FieldStart, ¢ 
|Fieldhlen) 
End Function 
"Save the records. 
Set Fieldpyn =<? 
MDBFile.CreateDynaset ("Select* From? 
ImportTbl Where Area = '" + Area$ +¢ 


PES 


FieldDyn.MoveFirst 

‘Loop through all the fields saving? 

them as we go. 
FieldDyn.MoveLast 
FieldDyn.MoveFirst 
AreaDyn.AddNew 


FieldName =@ 
FieldDyn.Fields ("FieldName") 
Fieldstart =< 
FieldDyn. Fields ("FieldStart") 
Fielden =? 
FieldDyn. Fields ("FieldLength") 
FieldValue=Mid$ (ImportTxt$,¢ 
FieldStart, FieldLen) : 
AreaDyn. Fields (FieldName) = 
Fieldvalue 
FieldDyn.MoveNext 
Next: t : 
AreaDyn.Update 


{MSPS 


For t = 1 To FieldDyn.RecordCount) 


| 
1 


| 


) 
i 


ve all now, the Check Box control in VB is 
ly inclusive, while the Radio button control is 
ally exclusive. This often can be frustrating 
ially to those Access developers crossing over to 
ho are accustomed to inserting check boxes in 
In groups to make them mutually exclusive. 


€ May come a time where you may require a 
ber of check boxes to operate in a mutually 
sive mode (without having to add radio controls), 
D particular circumstances, as I have encountered. 
here's how its done .... 


xclusive flag gives you the option of using a 
ol array of check boxes in either Exclusive or 
sive mode. Therefore, you get the best of both 
is!!! 


Mutuauy Exctusive Cueck Boyes for VB 


Robert Munoz 
GUI! Computing 


Sub chkBOX_GotFocus (Index As Tnteger) 


Dim no As Integer 


Dim MaxBoxes As Integer 
"No. of check boxes. involved 


MaxBoxes. = 5 
If Exclusive Then 


"Only one checkbox can be selectedd 


at one time 


For no = 
If (chkBOxX(no) 
(Index <> no) Then 
"Clear the 
chkBOx (no) 
End If 
Next 
End If 


End Sub 


0 To MaxBoxes 


= True) Andd 


previous 


Sub chkBOX LostFocus (Index As Integer) 


If Exclusive Then 
chkBOX (Index) .Value 
End If 
End Sub 


=" True: 


chkBox 
-Value = False 
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Beware oF THE RLE fies 


i‘ Dennis Urbans, HW&D Computer Services 


with interest Ken Truffit’s article regarding 
Be Of RLE (Run Length Encoded) files in licu 
(bitmap) files. My comment is - Beware! 


While the RLE format 
certainly provides all 
the benefits in Ken’s 
larticle, our experience 
: | shows that not all video 
$s are compatible with this format. When 1 in 
stomers wanted to display our maps supplied 
E format, unfortunately, they would get the 
led GPF error in their video drivers. 


ommercial developers know that when a 
em like this occurs, you carry the can for the 
arc not working. 


ur software, so its your fault! 


quently, we have been forced to revert back 
p stock standard, run-of-the mill, paintbrush 
bitmap. It requires more space on our 
mer’s drive, sure, but it saves us a lot of 
assment and expense of having to send out 
P files in lieu of .RLE. 


are conscious of disk space, and your video 
rx can support displaying images in that 
at, then go for it. But as for distributing RLEs 
your application - too risky! 


At OZCHI’94 you 
can learn what 
it’s all about. 


Keynote Speaker 
Larry Constantine 


Plenary Speaker 
Joy Mountford 


Tutorials in: 


Usability Testing 


Groupware 
Lotus 


Computer Human Interaction Special Interest 
Group of the Ergonomics Society of Australia 


Screen Design 
HCG 


Contextual Inquiry 
Digital/InContext 


Papers, Posters 
& Panels on: 


GUls 
Multimedia 
Learnability 
Evaluation 
Testing 
Standards 
Methodologies 


.OZCHI 
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MELBOURNE 


The Interactive 
Experience 


A showcase of 
new interactive 
design. 


Join leading 
practitioners 
from Australia 
and overseas 
for four days 

of presentations 
and events. 


Graduate School 
of Management, 
University of 
Melbourne. 


Contact... 


Convention 
Associates 


03 887 8003 


(SF 


ce 


November 28 to December 1 1994 


Harmony Through Working Together 
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elon! Access COMPETITION 
Recently, Fabian Pascal made 
mention of Chris Date’s proposed 
relational solution to the hoary 
old “parts explosion” problem. 
Parts explosion is the classic 
instance of the problem of 
creating a relational expression 
which will result in the iteration 
of a nested tree structure. One 
part will have 1 subassemblies, 
which are themselves parts and 
are composed of m subassemblies. 


The problem is to compose a 
| relational expression 
(traditionally using SQL syntax) 
which will iterate part P down to) 
atoms (paris which do not 


‘said Date’s solution “...requires 
support of a specific SQL 
function, and the ability to use 
table expressions, not just table 
names, in the FROM clause.” 


Now, PC _ based _ software, 
particularly DBMS software, is 
traditionally regarded as poor! 
cousin to mainframe and mini 
based DBMS software, so it may 
come as a shock to some that. 
Microsoft Access not only 
supports practically every SQL 
‘function known to man, it 
‘supports the use of custom 
|functions when necessary. It can 
also make use of table functions in 
‘the FROM clause, since it can use 
stored views (querydefs) as input 
“tables”. 


GUI Computing will give away a 
|set of our VBA Kickback Tapes to 
the best solution to the parts 
explosion problem. 


Evaluation criteria will include: 


=> completeness 

=> brevity 

=> elegance . 

=> efficiency 

=> adherence to the relational 
model 

The judge’s decision will be final. 


Mice osoFt 


Peter Wone 
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Fast SeEKS IN Access 2.0 


You may recall that an issuc or two ago I said that I didn’t know any fast way to seek 
a record on a form. It is possible. I figured it out myself within a week of publicly 
admitting my inadequacy, and braced myself for the usual deluge of calls from 
readers telling me how to do it. Oddly, five weeks later only one reader had called, 
and his method was exactly the same as mine, and derived in the same way too. I’m 
not the only person on Earth with brains and a copy of MSA20 (I hope). What are 
the rest of you doing? 


What you do is take advann you clone a recordset the only thing for which you have 
created a new instance is the current row pointer. Everything else is shared with all 
the other clones of that recordstage of the form’s RecordsetClone property to obtain 
a Clone of the form’s recordset. Wheet, including the bookmark tree. You use 
FindFirst on the clone of the form’s recordset, and copy the resultant bookmark into 
the form’s bookmark property, thus setting its current row to match the clone. 


decompose any further). Pascal): 


That’s all there is to it. A cunning plan, my lord. One which cannot fail... 


Mi Qsoft 
a. ww 


At last Crystal Reports has a genuine 
competitor! Well at least that was my 
first thought upon looking at the 
specifications for Borland's new 
acquisition, ReportSmith. In the final 
analysis, ReportSmith is very 
reminiscent of Crystal 1.0, so perhaps 
"competitor" isn't exactly the right 
word, but it is still worthy of a look, 
especially in the longer (version 2 or 3) 
term. 


ReportSmith is, in some ways, a 
fascinating Borland offering, using as it 
does many Microsoft components, from 
Microsoft's ODBC database 
connectivity standard to Microsoft's 
ubiquitous setup program. Whilc I'd like 
to think this was a sign of an impending 
rapproachment between the PC world's 
two warringest players, I suspect that it's 
more a sign of Borland's desire to get 


| this product to market under the 


Borland logo. And I suspect that this 
desire to get the product to market may 
have clouded Borland's judgement on a 
few other issues as well. This is not a 
program that could be described as up to 
the normal Borland standard. It's big, 
very slow (so much so that I had to 
check that the Turbo button on my PC 
was on) and downright uscr-hostile at 
times. 


To begin, ReportSmith insists on 
redrawing the entire screen whenever 


Enter REPORTS AITH 
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anything happens - just great if you 
happen to have an embedded graphic or 
two! And it makes only a passing 
attempt to be WYSIWYG. And it has a 
nasty habit of ‘losing’ font settings 
whenever a style is changed. And... 
well, you probably get the idea. 


But Borland have, to coin a phrase, put 
their money where their mouth is with 
ReportSmith. Unlike Microsoft, they 
liked the product so much they bought 
the company, whereas Microsoft only 
bundle Crystal Reports - so Borland 
would appear to have the clear long- 
term advantage. With a Visual Basic- 
like macro language (licensed from 
Softbridge), comprehensive DDE (but 
not DLL) support and wide-ranging 
database sunport and a major player like 
Borland behind it, ReportSmith is likely 
to be a winner. 


Crystal is ReportSmith's only real 
competitor for the developer market, 
where pre-packaged reports are 
becoming increasingly-important. And 
ReportSmith has the big advantage of 
including a close 'clone' of VB (with 
appropriate reporting-specific 
additions), whereas Crystal Reports 
relies on a _formula-based macro 
language that is, at best, arcane. 


So ReportSmith bears watching. But not 
in this version. 
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> Using Messaces to Fury Expoir Text Boxes tnsthan Zu 


Advanced Paradigms, Inc. 


Using messages, Text Boxes can perform clipboard The table below describes the EDITDEMO sample form 
operations (in fewer lines of code than that demonstrates sending messages to Text Boxes. 


pure VB and including Undo), the Pronert Setti 
number of characters can be limited, eeebesty omnes 


Jonathan is Vice 
President for the 


: aoe Form Caption Text Box Messages 

tabstops can be set and the control can . ey i. mee FormName Form] 
be interrogated for various information Paradi ma Label Caption Total Lines: 
such as the number of lines, the ht CtiName Labeli 
current line, the offset of a line and much more. Label Caption Current Line: 
Listing 1 shows the source for EDITOR.BAS, a Bai CiName ae P 
module which demonstrates much of the functionality He pe te Mannedt 

: ; Bis : CtlName Label3 
available via messages. Listing 2 contains the code = : 5 

: ; d i : TextBox CtiName Textl 

that should be included in the form. Simply insert this Reultiline Te 
code in the declarations section of the form or insert TextBox CtlName Text2 
the routines into their respective event handlers. TextBox CtiName Text3 
— ee Lee en TextBox CtlName Text4 
E Command Caption Query 
Liste | Source ror EDITOR.BAS CtIName Command] 
Defint A=Z Command Caption ‘Copy 
Declare Function SendMessage& Lib "User" @ CtlName Copy 
(ByVal hWnd, ByVal Msg, ByVal wParam, ByVal d eee Cut. 
i Param As Any) | Command Caption ut 
Const WM USER = 1024 0 CtlName Cut 
iConst WM CUT = 768. Command Caption Clear 
Const WM “COPY = 769 CtiIName Del 
Const WM PASTE = 770 : : 
ence WM CLEAR = 771 Command Caption Delete Line 
Const. EM._GETMODLEY = WM_USER + 8 CtlName DetLine 
Const EM | SETMODLEY = WM USER 4 9 : Command Caption Exit 
Const EM LINBINDEX = WM USER + 11° CtfName Find 
Const EM LINEFROMCHAR = WM_USER + 25 4 ee Paste 
Const EM UNDO = WM USER + 23 Comman Caption aste 
iConst EM GETLINECOUNT = WM USER + 10 CtiName Paste 
Function TextModified (TBox As Control) | Command ‘ Caption Save 
'TextModified = SendMessage&(TBox.hWnd, & CtiName Save 
ai ae ee ae Command Caption Undo 
End Function + : : i 


'Punotion TextCurLine (TBox As Control) CtlName Undo 


TextCurLine = SendMessages(TBox hWnd, & 


j oe = eo ncremaeiics 
BM: LINEFROMCHAR, «-1,. 0&) FOL j 
End Funetion : . j lemme? “Cone rn EDITDEMO.FRA 
|Function TexthineBegin [Bes As Control, @ | |DefInt Anz ee oe 
LineNum) : Sub Undo Click. (): “Sub Capy Click (4 | 
TextLineBbegin = géndMessages (TB0x. hWnd, @ i : Editundo Textl Bd) tCopy. Text. 
EM LINEINDEX, LineNum, 0&) 0 | . End Sub End Sub. ue a 
jEnd- Function a8 es Sub Cut Chick) Sub Paste Click €}. 
Sib TextClean (TBox As Contrel).. Say : Edi tcut Text a EditPaste Texti 
: Ok = SendMessages(TBoxvhWnd, @  ” End Sub Epa Bub 
EM SETMODIFY, 0, (0&3 Sub Del Click (). /Sib Fini. Click) 
Phd sub : Bs : EditClear Text) =. Unload ‘Forml 
Sub EditUndo (TBox As Control). | }Bnd Sub End Sub 
Ok = SendMessages (TBox hWnd, EM UNDO, 0, 06) Sub Commandl Click Q - 
Fad Sub Dene ae oe Text?.. Text = Str$ (Text Lines (Text1)) 
Sub FaitCut [TBox As Control) 9 | Text3.Text. = Str$(TextCurLine(Text1)) 
Ok = SendMessages (TRex-hWnd, WM CUT, 0, 0&) If TextModified(Text1) Then ae 
}End Sub Ee “Fext4 Text. = "Yes" 
: Rad : a : ise ; 
ob Edi tCopy (TBox As control). = ck ae a. . 
= SendMessages (THox. hWnd, WM COPY, G0) _Text4. Text = NNO" 
Ene Sul : oy it 
Sub EditPaste (TBox As Control) End Sub elias 
Ok = = pomiMeseerst Teo ips WM. _PASTE, 0, O&) Sub Save Clic Q a : 
End ‘Sub 2 ae TextClean. Textl : UE ee 
aitCL TBo As Control) ‘Bnd Sub - ee 
gee se ‘ . DelLine | Click oO 


: | | Sub 
ok = SendMessages (TBox. <nWnd, WM CLEAR, 0, e | | euetine = rextcurtine(text1) 


: Texti. SeiStart = = TextLinebeg n(Textd 1) 
: [ = TextLineBegin(Text!, a 


ken TextLines (Rox. As eecol) 
sndMessages (TBox hWnd, 
NT, 0, G8) | 


EM GETLIN 
End Funct 
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Toys ARE US 


You are now reading upon what is to be the first of a 
regular series on R & D, NT, Access and some new toys. 
The trials of life notwithstanding, I've had a very 
interesting two months since our last issue. RAS is now 
operational on our server, and as a result security had to 
be significantly tightened up. RAS is wonderful, but ... [ 
used to think an ISDN link would be the answer to all my 
communication prayers. ISDN channels are 64K wide. 


Now I’ve got 28.8K modems (yes, plural) with various 
forms of hardware and software compression. The acid 
test for cffective bandwidth is to transfer a known volume 
of data and stopwatch it. The data should be in files of 
widely varying sizes, including a lot of little files, in order 
to give practical results. This type of test showed a real 
bandwidth of 45-50K. Sounds wonderful, doesn’t it. 


It isn’t. I’m used to being on the LAN; 10M of bandwidth. 
That’s two hundred times the bandwidth of the RAS link. 
Let me give vou a practical example. When I open a 
particular drive on the server (connected at 10M) File 
Mangler takes about half a second to fetch the 400K of 
directory info involved in displaying the directory tree. On 
the RAS link, at 1/200th the bandwidth, it takes 80 
seconds. A iminutc and a half to do what used to take 
literally a fraction of a second. 


5K per second sounded pretty ferocious, until it dawned on 
me that when I reshuffle the directory structure on the 
server, I routinely move hundreds of megabytes around. 
Haif a meg just to look at the directory tree. On a SOK line, 
the whole business demands a new usage strategy. 


There is a piayoff in fetch times, between the number of 
shares cn a box, and the depth of the trees behind those 
shares. The trick is to structure your server carefully into 
functional groups. so people dont have to fetch 
information they won't use. It’s narrowcasting. to borrow 
a currently fashionable buzzword. 


We have, for instance, an AVDF share. Those wishing to 
work on their magazine contributions can connect to this 
share and see nothing but magazine stuff. for which the 
tree isn’t too large to handle remotely. Our programmers 
can connect to the Devclopers share, and sce only 
developer’s stuff. It’s not that they’re forbidden to access 
anything else, far from it. It’s more that nobody wants to 
fetch anything they don’t need across a 50K tink 
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Of course RAS isn’t the only new toy in the shop. I’ve got 
two new operating systems to play with: Chicago and 
Daytona. 


The good news is Chicago is wonderful. It goes like stink, 
and Plug ‘n Play mostly works. Notepad has been 
supplanted by a thing called WordPad, whose default file 
format (belicve it or not) is Word 6. All my Win1l6 
software ran OK, and if you hold down F4 during a boot 
you get DOS — version seven. You can then type 
win<return> and get your old copy of Windows. It’s weird 
but it works. If you like Chicago but it’s all been a bit 
much and you miss File Mangler, find it with Explorer 
(File Mangler for objects, which apparently includes files) 
and drag it onto the desktop, whereupon it will be 
enshrined in its own direct icon (“shortcut” in 
Win4speak). 


With respect to video and networking performance, 
Chicago beta 1 is phenomenal. On my first attempt at 
installation, it correctly detected the net card and the 
protocol the net was using. It then detected and 
volunteered to join the domain, which it did successfully. 


The bad news is it’s patchy, which is to be cxpected. 
Printing performance is dismal to the point where at first 
} thought it had hung. The second copy | installed couldn't 
see the rest of the net, much less the domain, and nothing 
on Earth would persuade it to do so. But it’s pretty good 
for a first beta, and I can’t wait for beta 2. With any luck 
Vil have it by the time you read this. 


Some more good news concerns Daytona. Daytona is a 
maintenance release of an already stable product. I’m 
pleased to report that Windows NT 3.5 is so stable it’s 
boring. The only surprise in Daytona is that there’s sti// no 
support for faxing from Mail. NT 4.0 (with the Chicago 
interface) will definitely have this. NT 4.0 should be really 
something. Exactly what it will be, 1m not entirely sure, 
but I for one will be lined up to find out. 


There was one other thing about Daytona --- SimCity for 
Windows wouldn't run under Daytona. Or, it transpired, 
under any other flavour of NT. As you can imagine, this 
was a major downer. Both my workstation and the box | 
have at home (my Homestation?) are pure NT — Daytona, 
in fact. How’s a bloke supposed to wasic time if he can’t 
get anything more exciting than Solitaire for his PC? 
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One EXE, Many FUNCTIONS 


As VB programmers realise the full potential of Visual 
Basic, they also realise that it holds the mcans to write 
code that is totally modular. For example, a module in VB 
may perform all the printing requirements while another 
may perform all the data access requirements. All these 
modules can be placed into a single EXE and VB will only 
load those modules which are being used. 


There is a problem however. If the code needs to be 
changed for a particular module, the entire EXE needs to 
be recompiled. Instead, how about compiling each 
module as a seperate EXE file and only executing the 
routine you need? How would I do this? Well, I'm glad 
you asked. 


When you call the exe, place the name of the routine to 
execute in the Command line. That way you can trap it 
and run the appropriate section. Take for example the 
code below; 


'Function ExtractCommandLine ({) 
CurrArray = 1 
ExtractCommandLine = 


False | 


For t = 1 To Len(Command$s) | 
If MidS (Commands, t, 1):>= "|" Then 
| ReDim Preserved? 
|CommandArray (CurrArray) 
j CommandArray(CurrArray) =¢ 


| UCase (Trim$ (ExeString) ) 
| ExeString: = ."" 
| CurrArray = CurrArray + 1 | 


ExtractCommandLine = True 
Else 
| ExeString = ExeString +? 
Mid$ (Commands, t, 1) | 
End-If 
Nexect 
If ExeString:<>."" Then 


| ReDim Preserved 
|CommandArray (CurrArray} 
| CommandArray (CurrArray) =¢ 
UCase (TrimS (ExeString) ) 
ExtractCommandLine = 
End If 
End Function | 


i 


True 


This will, in effect, take the command line argument and 
place all the routines needing execution into an array. All 
you need to do now is unpick the array and run the 
routines. Not only that, but if you needed to run multiple 
routincs one after the other, you could seperate the 
routines by a Pipe character. For example; er% = 
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Shell("MyExe Proc1|Proc2|Proc3",1). This would then tell 
your exc to execute Procl, 2 and 3 in that order. 


By using this method, all you need to do is compile a new 
version of the specific exe and not the entire application. 
This method has an added bonus, as indeed many tips do, 
in that if your application was for retail purposes and 
needed to be customised, all you need to do is to change 
the particular exe that dealt with the changes required. 
Another good reason for developing generic code. 


Moputar Prosi 

Of course, the biggest problem you will encounter when 
writing modular code that consists of multiple executables 
is that when you shell to an executable, your code from the 
calling application will continue to run. This may not be 
desirable in many circumstances. ‘The trick is to check 
whether the application is still running. However, if your 
module does not contain a form, you may have problems 
locating your exe. 


If the Module does contain a form, then you can simply 
check for that forms caption using the FindWindow API 
and loop around until you no longer get a handle. Don't 
forget to do a DoEvents in your loop. 


If however your module does not contain a form then you 
will need to do one of three things. The first is to obviously 
add a form which is invisible. The second is to get the 
Instance of the form from the Shell command. Once you 
have the instance, you can convert it to a handle and then 
to a class name. Once you have the class name, you can 
again use FindWindow to check for the handle. 


The method I opted for was to see if the Exe was still in 
memory. If it was not, then I could continue. This seems 
to be the best solution and works quite well. The code is 
below; 


Pos 


‘Declare Function GetModuleHandle% Lib? 
"Kernel" (ByVal. ModuleName$) | 
i"Call the Executable. 
'ShellString = App.Path + "\ExeFile.Exe” 
ert = Shell (ShellString, 1) 
While er% 
er% = GetModuleHandle ("ExeFile.Exe”) 
DoEvents 


Wend 


(> 0 pice ol 
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To. be Force 


It occurred to us recently that despite several versions of 
this useful VB custom control library, we had never 
actually reviewed it (nobody's perfect) and thought it was 
time to make amends. 


First, let me begin by saying that version 4 is basically a 
combination of the controls contained in VbTools version 
3 and a sister product called 3dGizmos version 2. It also 
contains some new tools, bringing the total to 54 custom 
controls which, for $229, represents excellent value. The 
tools are compatible with Borland C++ 4.0 and Microsoft 
VC++ with the following exceptions specific to VB: Grid 
control; Mh3dMenu; MhCallBack; MhCommonDialog; 
MhDragDrop: MhOutBox; MhOutOfBounds and 
MhSaver. 


& Mh3d Control is an 
enhanced label control 
| that has the ability to be 
“used as a_ percent 
complete indicator. Also as with most of these controls, 
the standard 3d effects such as depressed, raised, 
bevelling, shadowing etc. apply. Also as with most of 
these controls, it is data aware. 


Likewise, the Mh3dButton eS Mh3dBut Control 
control is an enhanced 


command button that will 


allow you to have multiline + 


captions and multiple state bitmaps or icons. It is aise ae 
aware. 


| Mn3dCatendar Controi |, Mb3dCalendarControl is 
;as its name implies is a 
calendar that can be data 
aware and have a picture 
associated with it and 
supports various date 
“formats such as normal 
(American), Julian, verbose (Saturday, October 17, 1994) 
» general (MS Access format), Long (as defined by 
Win.Ini), medium and short (by Win.ini). Lots of 
colouring and 3d effects. 


The Mh3dCheck control 
is like the standard |-—= 
checkbox but is also data |i 
aware and can display'> zi 
different bitmaps depending on its state. Multiline caption 
and 3d effects apply. 


Mh3dCombo is useful and suprisingly missing from vb as 
a multi column data aware combo that can be used as a 
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» Dual state bitmaps can be 
-implemented on an item 
: selection and an interesting 
- point is its ability to have the 
edit portion bound to a 
different data source than the list portion and a pseudo 
relation can be built from one me - 
tupil to another in the respective |: 
recordsets, provided a common 
key exists. Searches can b 
performed for specific string 
and 3d effects are numerous. In 
bound mode the control can run - : 
in virtual mode, whereby only a subset of the recordset i is 
displayed at any one time, thus improving speed and 
reducing resource usage. A "gizmo" dialog facilitates ficld 
selections, column widths, headings etc. 


. Mh3dDir control is a 
| replacement for the directory 
, list box in vb and has all the 3d 
effects and colouring and 
} permits customised dual state 
= pictures for 
selected/unselected folders as 
well as user defined fonts for 


[Eo] Mh3aDir Control 


directories. 


Mh3dDrive: Enhanced drive |f 
list box. See Mh3dDir as the |; 
properties virtually | 

identical. a 


| Mh3aDrive Control | 


are 


. Mh3dfile: Enhanced file list box 
used Mh3dFile Control: - See Mh3dDir as the properties 
4 | arc virtually identical. 


Mh3dFrame: Supports the usual ES] nadrrame control 3 
properties as well as allowing q 
bevelled borders, wallpaper 
background, caption alignment 


and data-awareness. 


|. Mh3dGauge: Displays 
meric values via an analog 
orollary. It is data-aware and 
has six styles. As well as the 
ormal rotary form, horizontal 
and vertical blinds can be used 
as percent complete references and interestingly, bitmaps 
may be used as sliding indicators. 
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Mh3dGroup is an 
extended version of 
the standard group 
control found in VB > 
and operates in such a 
way that when one of the members is pushed, the previous 
member that was in a depressed state will return to its 
raised state, akin to the way option buttons work. Again, 
data aware and in that context can be used to change 
captions or set the state of the members. 


Mh3dGroup Control 


, Mh3dKeyStat monitors 
| the status of the state keys 
Son a p.c. That is ; num 
/ lock, caps lock, scroll 
" lock and insert mode. 


Mh3dLabel operates beyond 
the scope of its vb{é 
counterpart by allowing 
manipulation of both the 
direction the caption will #& 


take as well as independent "= 
control of the orientation of 
the characters in the caption. 


See 


identical. 


Mh3dMenu is interesting |f 
control that will allow the}; 
creation of 3d popup an 
tearoff menus. It will also let }j 
you modify and give a 3d} 
appearance to the forms'} 
system menu using the ~ 

standard menu design dialog contained in vb. 


Mh3dMenu Control 


, Mh3dMultilabel: 


is an 
© unusual twist on label 


Mh3dMultiLabel Control 

| controls; it allows 
| operations to be 
** performed on up to 100 
individually addressable segments. Is data-aware and 
allows a picture to be associated with each cell as well 
percent complete indicators and would be excellent in 
process monitoring and control applications. 


Mh3dOption: is an 
enhanced option box that 
permits the use of different 
pictures depending on the} 
state of the control. Le. 
checked, unchecked, 
grayed, pressed and wallpaper. Is also data-aware and 
multi-line captions. 


| probably the simplest. ilgili 3 
| the standard vb text box its === 


Mh3dOption Control : 
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suite of the 3d controls and is | 


only difference is its ability to bine the 3d effects, 


,» MhAlarm is an interesting 


are aE as ea ns PL E * an event tins occurred such as 
igh a pene Te has finished we could display a 
ringing telephone for instance. That facility can also exist 
where an application has been minimized and override the 
default icon for that form or app. Various properties 
control the pictures and sounds associated with the alarm 
and you can display your own pictures as well. 


MhAnimate seems_ to 
operate in an almost 
identical manner to the 
existing control in vb so I 
won't go into it. See the vb help file as it was probably 
third party sourced for Microsoft anyway. 


. MbCallBack: One of the 
MhCailBack Control} most sophisticated controls 

= in the suite, MhCallBack is 
so cand pees of its access to two types of windows 
callback services; enumerated lists and message hooks. 
Enumerated lists provide information on available fonts 
on forms and printers, a list of a parent's child window 
handles and formats understood by the clipboard. Message 
hooks will allow you to view types of messages that your 
application or windows generally are generating. Key and 
mouse presses, all windows messages, menu and dialog 
messages from your app or system wide and clipboard 
change messages. The final facility of this control is to 
permit control subclassing by setting the hWndSubclass 
property to the hWnd of the control that is to be subclassed 
and by specifying the message type to be intercepted, and 
therefore subclass the control by blocking or redefining the 
message to the control. 


MhCard is a cute little on Eon 
that allows cards from a deck |e | 
to be displayed from any of 12 
card back bitmaps. Anyone 
who has played windows 


fe. Mhcard ne = 


solitaire will be familiar with °°" 
these. 


MhClock will Ict you 
: display chronometers in 


a your own faces and hands in 
“" 12 or 24 hour format. 


1 


Australian Visual Developers’ Forum 


ie MhCommonDialoe: 

| Permits customization of 
" “=: available windows dialogs 
in vb to ‘ae extent shee the programmer can place new 
controls on an existing dialog, resize or move it and even 
allow it to be rendered in 3d. 


wal Contro 


MhDateInput is another 
interesting control _ that 
allows data-aware, date "=== 


validations in a number of formats, such as long, Julian, 
general (msaccess), international etc. and even has spin 
controllers to adjust the dates. 3d effects apply and date 
ranges specified. A good data entry control. 
.. MhDial control is a 
4 potentiometer control that 
f simulates cither a dial or 
F infinitely rotatable knob 
4 whereby the user can specify the 
"Taman radius, as well as the scale and 
range of movement. 


ES MhDice Control | 


Soe __| 


MhDice is another cute control that 
will show die faces and also allow 
custom bitmaps. 


[eer 
FE ae ce 


-MhDragDrop: Automates 

: a ae e drag and drop operations by 
senliaiae a drop server and a drop client. Once this has 
been established for instance into a file list, individual 
items can be dragged to the client and dropped. This 
generates an event in the client and the client will now 
hold the item dragged. All this occurs visibly in the way 
drag and drop appears in windows 3.1. 


MhFileDispiay is a high speed 
ASCH file viewer that features 
a search and search help ™ 
dialogs. 


= », MbFileList is an enhanced file 
MhFileList Control 4 


: list box. Its main benefit over 
using the vb equivalent is the 
| fact that you are able to combine 
Fa drive list, directory list and 
“ file list in the one control and 
therefore obviate the need to have as many controls and 
also not have to pass values from one control to the next in 
order to keep them synchronised. 


MhHistograph works like a = 
chart control except Sa 


the Soon 
information is plotted as if 
being. recorded on a Fi 
seismograph.: The plot has up * === eres 
to 100 pens available and numerous paper ivles to be 
written on as well as providing the ability for user defined 
bitmaps to act as the background paper or pens. 


except 
- flexibility over the masks by 


MhInput is a_ validation 
control that allows 11 
predefined masks such as 
telephone numbers, social * 
security, etc. to be applied as well as user defined mask to 
restrict input to a certain type character by character. It is 
data-aware, has an autoterminate event at the end of the 
input so users do not need to tab or return and permits the 
use of insert and overstrike modes. Overstrike is not 
supported in the vb text box. 


" MhintInput is like the 
aa Mhintinput Control} MhInput control except is 
specifically for integer input, 
“with spin controllers and a 


maximum and minimum range selectable. 


MhlInvisible: Is at it says 
an invisible control. What 
good is that ? You may 
ask. Essentially it is used 
where you want a portion of an existing control to do 


Mhinvisible Control q 


, something when it is clicked on say, at a specific location. 
| Thus on a map for instance we could define a number of 


invisible controls such that when we click on a country, we 
could have an invisible control drawn on that country and 
a text box that loads the country's name on the invisible's 
click event. 


.. MhMarque will allow you 
MhMarque ¢ Control | create moving banner of text 
+ to attract attention to the 

control and allows forwards 
and backwards scrolling as well as bitmaps associated with 
the text. 


MbhMaskInput operates in 
exactly the same way as the 


~ Mhinput validation control 
MhFileDisplay Contro’ put validatio 


ox MhMaskinput Control i 


it allows more 


referring to an .INI file for its configuration which you can 
build or modify yourself. 


» MhMulti is an enhanced 
ommand button that will 
isplay up to four different 
bitmaps 


states or when 


depressed. 


MhOddPic is an unusual 
control that will allow the 
display of irregularly 
shaped bitmaps via a 
masking control such that oz 

a transparent border exists 

around the subject, so cither multiple bitmaps can be 
overlaid, or when the form background colour changes, 
there will be no visible border area to the bitmap. 
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MhOutBox is an enhanced |i 
picture box that will allow 
device independent output to "===> 


the screen, printer, metafile or pkeaed. = well it 


provides access to GDI drawing functions without the 
need to use API calls or the windows SDK or C languages. 


» Mh3dOutOfBounds. Onc 
2 Mn3dOutofBounds Control of the more interesting 
controls in the collection, 
this tool will let you bind 
controls to a database that 
“normally have no data 
aware capability, such as command buttons, frames and so 
on and cven forms! Not only that but it will also allow you 
to specify the target property to which you would like that 
control to be bound, within the range of propertics for that 
control, via a neat little dialog gizmo. So a frame for 
instance could amongst other things be bound by its 
control name or caption etc. 


MhReailnput is another Ss 
data validation control for f etter le 
numeric and currency 
valucs. You can specify 
whether you want decimal places, how many, number 
range, moncy format, separator styles, and spin control. It 
is data aware and supports 3d effects. 


=a » MhRollUp works like a dropdown 
— Bniolp Control - combo but instead of a list of items 
F appearing, you can have multiple 
|, controls and thus create a floating 
- toolbox, dialog or a 
on warning/notification drop screen. 


MbSaver will allow you to = 
blank the screen after a||s 
specified period a 
inactivity or to substitute 
your own graphic routines to act as a screen saver. 


- MbSlide is a linear equivalent 
: of MhDial and as such will let 
= you specify the range and 

Ci ieee! Incremental values of the 
stidles’ as nails as see user defined: bitmaps for the 
needle and scale. 


MhSlide Control 


The MhSplitter control is 
a container control that, 
when used in conjunction oe 

with other controls of the same type, allows "splitting" the 
main container so that each part can be sized individually. 


|. MhStretch allows the user to 
prey resize controls at run 

RE ===" time by dragging the mouse on 
the pital border and will also let the user mark an area 
of the display. 


iM MhStretch Control}. 


« MhTab is a folio container 


eS MhOutBox iad a that will open to a specific 


* tabbed page when the user 


MhSaver Control : MNGSE ORS: 


© colouring. combos, 
» pictures. An optional interface designer is available to 
* perform as a layout editor to simplify use of the design 
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= iMhTab Cane) 


clicks on the tab label. How 
many tabs per page can be set é 
as well as the rows of tabs, the shape, colour and thei 
location. E.g., top, bottom, left or right. 


, MhTimer is a replacemen 
MhTimer Control : to the existing control in vt 
Ea arm: as it doesn't have ; 
limitation of 15 per projec 
and MicroHelp claim it to be more accurate in firing 
events. 


MhTip is a popup label 
control that is activated 2 MhTip Control 
when the user passes over 

designated control that it 2° =°'"===="erssmmss 
relates to. Users of Word 6 will be familiar with this idea. 
It is used as the name suggests as a tip to the purpose of z 


control, usually used where icon buttons in themselves 


may be vague in their action. 


MhTool will let you create 
: toolboxes or toolbars for an 
- application and take action based 
on which bitmap was clicked. 


Ra MhTool Control | 


MhTree is a hierarchical control 
that operates like file manager in 
its ability to display sub items. It |g 
can be used to view files or show 
a hierarchy of items unrelated to 
files by allowing the use of custom 


eet 


The last control in the VBTools 
) Suite is in fact not a MicroHelp 
product at all but comes 
bundled with it anyway. 
| GRID. VBX (not to be confused 
+ with a vb control of the same 

“ name) is a data-aware table 
vicwing control. It is editable, configurable and quite fast. 
Originally the product was and still is manufactured by 
Farpoint technologies. It supports such things as in cell 
radio buttons, check boxes and 


time properties. 


There are, undoubtedly, individual controls available that 
meet or exceed the functionality available from those in 
VB Tools. But for most programmers, the sheer range of 
controls is almost unbeatable. And all this at just $229, or 
an average of something like $4 per VBX! 


ad 
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For those of you who have invested their hard carned cash 
in either Crystal Reports of the Professional Edition of VB, 
you will no doubt be well aware of the benefits of using a 
WYSIWYG report designer and 


-Chystat Reports DOES Do Reporr 


Matthew Porter 


Milestone System Solutions 


you have typed the formula correctly. 


=> Now click the Accept command button to close the 
dialog. 


custom control. Despite all the 
benefits of Crystal Reports 
however, one minor plague had 


Matthew Porter is 


independent VB developer 


=> Place the field inside the Page Headersection on 
thew report. 


an 


ontsued tie Yor cone due A oie : comand Fagan => To format the field, click the right mouse button 
a lutions, ase in : 
printing report headers and Meliourke, He cai ie over the new field to bring up the shortcut menu. 


footers. 


contacted on (03) 561-9063. 


=> Now select Format / Section...from the menu bar. 


In two recent projects, I was 

required to produce report headers to facilitate the printing 
of company information at the start of the report, and to 
print an “End Of Report” line on the last page. My first 
thoughts were that I would have to go the long way around 
and do the reporting manually (a thought which did not 
create a pleasurable fecling!). Playing the role of 
“efficiency-driven developer”, I decided that there must be 
an easicr way. My first port of call was of course Steven 
Jeavock at GUI, who kindly contacted Aeronaut to sce if 
even Crystal Reports Pro would do the trick. Unfortunately 
however, the Aeronaut. support team was unable to help. 
Slightly bewildered, I carried on. 


Several hours tinkering later, I discovered that it WAS 
possible to achieve the desired effect using formula fields. 
To save anybody else out there the bloodshot eyes and 
frustrated feelings, ] decided that an AVDF 
submission would be in order. 


=> _ Start Crystal Reports by selecting Window 
/ Report Designer from the VB menu bar. Ds 
=> Start a new report using File / New oe 
Report.. , or press the first toolbar icon. Pack 
=> _ Select the required database source from the x 
Choose Database File dialog. ~- 
=> Insert the necessary database fields from the 4 ¢ 
Insert Database Field dialog. Be 
=> Click the Done command button to close 
the dialog. 
=> Select Insert / Formula Field... from the 
menu bar. 
=> _ Type Report Header in the input box that 
appears, and press enter. 
=> In the Formula text: text box in the Edit Formula 


dialog, enter the following: 


If PageNumber = 
Else Mar 


1 Then “My Report Header” 


=> Click the Check command button to validate that 


=> Choose Page Ileader from the Format Selection 
dialog. 


Place a check in the Supress Blank Lines 
checkbox, then click the OK command button to 
close the dialog, being careful to make-sure that the 
Hide Section box remains unchecked. 


You now have a single line report header that appears only 
on the first page. To put report footers, simply repeat the 
process placing the formula field in the Page Footer 
section, and using the following formula instead: 


If RecordNumber = Count ( {{ fieldname} ) 
Then “My Report Footer” Else ‘” 


where fieldname is the name of any REPORT field that 
you inserted earlier. 


As an afterthought. you 
can also create blank 
lines that appear only on 
the report header page by 
inserting a formula field 
called (for example) 
“Blank Line”, and 
entering the formula: 


If Page Number = 1 
Then “Blank Line” 
Else MweT 


then make text white by 
choosing Change 
Border and Colours... 
from the shortcut menu. 


Even despite all of this, it 
seems that there is no 
way to create graphics in a report header (at least on the VB 
edition of Crystal Reports) using this method. I have played 
with the idea of using sections to implement me report 
headers, and then suppressing them based on the record 
numbers, but to no avail. If there is anyone out there who 
knows how to do this, then I would be interested in hearing 
from them. 


“4 


FormMunadA ONE oesion i 


ae VisualTools’ new Formula One is the first, and only, real spreadshect tool available for Visual Basic, 
Visual C++ and other Windows development environments. Formula One is a full size, real spreadsheet, 


e. including the most used spreadsheet functions. Formula One supports Microsoft Excel formula syntax, 
external references and complete spreadsheet formatting, including borders and patterns. Only Formula 
One enables your application to directly read and write Microsoft Excel native .XLS files. 


TOOLS 
Formeta ONE SPECIFICATIONS 


Individual Views up to 16,384 Rows by 256 Columns. 
Row height from 0 to 409 points. 

Formula length up to 1024 characters. 

Available colours limited only by video card and monitor. 
Up to 2048 simultaneous selected rariges. 

Names per sheet limited only by available memory. 


Virtual Mode supports unlimited number of database records. 
Column widths from 0 to 256 characters. 

Text length up to 255 characiers. 

Number precision up to 15 digits. 

256 fonts per worksheet. 

Up to 255 characters for name length. 


VOOUGGOO 
QOGCQO000 


Sheridan |S: Designer 


_| Designer Widgets is a set of custom controls 

+) that lets you create applications with the look, 
feel, and power of today’s most popular com- 
mercial applications. Designer Widgets lets you 
create floating toolbars with the Dockable Tool- 
1) bar control, maximize the use of screen real 
| estate with the Index Tabs control, and design 
high-impact forms with the FormFX control. 


Professional 


QuickPak Professional for Windows is the most complete collection of subroutines, functions, and custom 
controls ever produced for Visual Basic. More than 400 services are included that help you improve the quality 
of your programs and complete them faster. 


Many custom controls are provided, offering developers a variety of useful services. Included are edit controls, 
enhanced list and combo boxes and scroll bars, a calendar control, spin button, command button, continuous time 
control, an enhanced picture control and our unique form management control. Separate common dialog controls 
are provided that are easier to use and more powerful than those supplied with Microsoft’s Professional Toolkit. 


We have many other Visual Basic add-on products available, including Communications Controls, Image 
Controls, Compression Libraries, Faxing Controls, Grid Controls, Network Controls (including TCP/IP) 
Cross Reference utilities, Scientific Libraries, and add-on’s that allow Basic programmers to roll their own 
add-on, high speed, compact DLL’s and VBX’s without having to learn "C" or C++. 


SOFTERM (Australia) also offers a very competitive full contract programming service 
from writing individual modules to complete applications development. 


SHFTERM (Australia) 


Please send me your FREE catalogue and demonstration disk.... 


| Mt/Mtgs/Ms: 

! Company: eee 

Suite 3, 345 Pacific Highway | Address: 

CROWS NEST NSW 2065 ; 
Tel: (02) 956-8011 Fax: (02) 955-2850 ‘BBS: (02) 925-0311 ‘poner 3 : oe 
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Peter Wone, GU! Computing 


The Visual Basic Data Control makes no provision for the 
passing of parameters to stored query definitions. This has 
been a source of frustration to serious application developers 
since the release of VB3, and there are no easy solutions. 
There are several avenues most developers pursuc; filters, 
clones and parameters, clones and bookmarks, FindFirst on 
the Data Control’s Records property. None of these produces 
the goods. 


There is, in point of fact, no way you can explicitly pass a 
parameter to the querydef instance underpinning a Data 
Control. So what do you do? There are two possibilities. The 
obvious solution is to avoid using them, and construct SQL 
strings that make explicit reference to the literal values you 
should have passed as parameters, assigning thesc strings to 
the RecordSource property of the Data Control. This will 
work, but it’s awfully dirty. SQL isn’t magic, it’s a 
declarative programming language. What you are writing is 
self-modifying code, and that’ll get you a roasting in my 
workshop. 


The other possibility is to have a table of parameters. Three 
columns: QueryDef, Name and Value. Thus, we can select 
from this table the value pertaining to a particular parameter 
and a particular querydef, like this: 

SELECT DISTINCTROW Titles.Title 

FROM [Parameters] INNER JOIN Titles ON 
Parameters.Value = Titles.PubID 


WHERE ((Parameters.QueryName="TitleByPub") 
AND (Parameters.ParameterName="PubID")); 


Of course you don’t have to use a join to make the 
comparison; it’s just that joins are far more efficient than 
cartesian products, and should be applied wherever 
practical. Don’t forget also that you can pre-compile a 
subquery which extracts just the rows you want — all the 
ones pertaining to a specific querydef. Thus you can tweak 
performance at the same time as simplifying your SQL (use 
the subquery as an updatable view). 


This has been a rather terse explanation, as the principle is 
straightforward and only needs pointing out. Interested 
parties requiring further information should examine the 
sample code on the Black Label disk. It’s called PPASS. ZIP 
and requires that you have an installed copy of the Truegrid 
custom control. I did not include the VBX because to 
examine the code you would need the .LIC licence file, and 
if you have that, you also have the VBX. 


Much as I'd like to, I don’t really have time to enter into 
one-on-one technical discussions with all 5000 of our 
readers. On the other hand, I love getting your feedback, 
advice, hot tips and goss’, so please feel free to address 
email to the account “Peter Wone” on the Microsoft Connect 
BBS, on (02) 870-5200. It costs nothing to join this BBS. 
Providing you have a modem and that number, you can 
reach me. Look for me in the Access and Systems forums. 


So HYPER STAR = A NEW 
I Mark Trescowthick, GUI Computing 


ODBC has garnered a uniformly tarnished re 
over the past ycar of so... "yes, it provides a s 
API for database access; no, the performa 
functionality isn't up to production standard' 
probably be a fair summary of progress and op 
date. The simple fact of the matter is that, for a 
database back end, the native API will always, i 
be faster and more full-featured than the co 
ODBC solution. That may be changing. VMar 
noted previously for their Pick Universe d. 
have, over the past few months, begun to roll o 
Hyper*Star middleware drivers, the most re 
which actually exposes an ODBC API at the cli 


Hyper*Star takes the approach that good mid 
should be as much about network performance 
about database functionality at the back end, 
almost certain that their drivers play ducks and 
with network packet sizes to achieve 
performance. I guess that is in some ways not 
kosher, but it sure recognises the realit 
Client/Server development (the three key is: 
which, as I see them, are network bandwidth, ni 
bandwidth and network bandwidth). Followin: 
rich ODBC tradition, Hyper*Star's ODBC driv 
on average, worse performed than their " 
drivers, but that's not altogether bad news... the 
drivers are quick... in some cases, faster th 
vendor's own API . 


And VMark at least recognise the problem - a 
recent Sydney conference, their US developer 
happy to agree that the ODBC implementation w: 
than perfect (try ODBC Level One with relativel 
performance!) but were also quite open about t 
that the first version was as much about market 
it was about real solutions. Talking to the develo 
actually believe them when they talk about 
version (level Two compliant) within months. 
eventuates, Hyper*Star has the potential to bec 
serious player in the ODBC game, and will giv 
(recently-acquired by Intersolve) a real run for 
money in the third- party ODBC market. In their 
modes, the Hyper*Star drivers can talk happily, 
high-performance speeds, to most of the 

database back ends (including the only Ingre 
driver coming any day - probably before you read 
and in some cases they are actually faster tha 
native APIs. In all cases, Hyper*Star would scc¢ 
out-perform vanilla ODBC drivers. 


As it stands right now, Hyper*Star's ODBC driv 
not to put too fine a point on it, primitive and sl 
think that will change rapidly, and VM 
Hyper*Star is certainly worth watching. 


SSS SSeS sc ise SU 
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Software FX has released its second version of Chart FX, 
a powerful graphics development tool to support graphics 
integration, in any application under a C/C++ or Visual 
Basic environment. 


Chart FX provides over 18 different types of charts with 
a combination over 47 styles. All charts can be displayed 
in 2D or 3D modes and its properties can be modified on 
the fly. Apart from the standard date of graphs such as Pie, 
Line and Bar graphs, this control also comes equipped 
with Scatter, Pareto, Open-Hi-Low-Close graphs and 
more ... 


Once data is passed in and displayed to the chart, you can 
give the user access to powerful tools which will directly 
affect how the graphics is formatted at runtime. The tool 
s included are a Menu Bar, a ToolBar, a PaletteBar, a 
Pattern Bar, a Status Bar and finally a Data Editor. All 
these tool s can be programmatically hidden, displayed or 
customised in accordance with the functional 
requirements of the client application. For example, if we 
consider the toolbar, it consists of a number of file, 
gallery, 3D, legend & grid, and lastly utility options such 
as fonts. Development time is significantly reduced, since 
the developer need not write vast amounts of code to 
handle these functions. The developer can simply create a 
simple chart, and allow the user to configure the chart at 
runtime. 


Cuarr FX (Version 2.0) For Winpows 
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Robert Munoz 
GUI! Computing 


and property settings, powerful, informative charts can be 
developed. It can also handle advanced techniques such as 
saving particular chart preferences to a template, or 
handling menus 
using the right- 
click mouse 
button, thus 
demonstrating its 
flexibrlity. 
However, be 
aware that in the 
current version 
(which we a 
understand will be SS 
updated soon), there are a few bugs with the design 
module, however, these bugs are fairly obscure and unless 
you are actually looking for bugs in this product, you may 
well not be aware that they even exist. 


All in all, a very good product which seems to incorporate 
alj the niceties of a graphing application, that we’ve been 
looking for since charting controls first entered the 
market. If your applications require high graphing 
functionality, then this product is well worth a look. 
Definitely a sign of things to come. 


Apart from standard features such as the ‘Hotkey’ event, 
‘Cross Hairs’ and the ability to copy to the clipboard, 
Chart FX2 is equipped with a number of other versatile 
features. Such features include the ability to change the 
colour of particular sets, resize the chart and change 
particular values of data points at runtime. Finally, the 
actual data values can be displayed at every data point on 
a chart. 


Often the appearance of a 3D graph can be unsatisfactory 
as particular data points cannot be seen. Chart FX2: has 
overcome this problem with an effective feature called a 
Rotation dialog. This dialog will allow the user (at 
runtime), or developer (at design time) to rotate any 3D 
graph, and view it at a different perspective. Moving a 
rotation marble about the X plane or Y plane, will change 
the graph’s yaw and pitch to a different orientation. 


Software FX have provided a number of C\C++ and 
Visual Basic examples (including source code), to get you 
started. Developing a graph is simple and only requires 
minimum steps. Chart FX2 comes with its own runtime 
DLL whose functions can be accessed by over 80 different 
specific API calls. Using a combination of these API calls 


Stephan Grieger 
GUI Computing 


7] PHONE Manin 


Since joining a large corporation in the city on a 
contract, I have noticed-strange going ons. As we are 
all well aware, some styles of carpet tend to be very 
good static conductors, and the carpet I now walk on 
is no exception. Every time I get up and touch metal, 
I get a little jolt of static electricity. That's not the 
weird thing however, what is weird is that my Mobile 
Phone tends not to take to static electricity very well. 
Whenever I have it in my pocket, and I move around, 
the damn thing gets all confused about how much 
‘power it has and will randomly turn its self off, even. 
in the middle of a phone conversation. I found the 
best way to deal with this is to have the CallDiversion 
property on the phone set to True. I can then turn off 
the phone and still have access to my comms part 

The syntax, for most phones, is as follows, . 


*61(Area Code) (Phone Number)# Send. 


Ignore the brackets. 
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Points of Interest 


This handy hint came from Ms Christiane Yeardley of Acon Systems: There is a handy feature in the 
VB editor which I have not seen documented anywhere. If you highlight a block of code and press 
Tab, all marked lines will be indented by one tab space for every time you press the tab key. Great if 


ou decide to put some code inside an if-statement or a loop. To move a block towards the left 
margin, use shift-Tab. 


As did this "interesting experience" : I recently had an interesting experience with the VB editor. I'm 

developing a knowledgebase. This involves much opening and closing of files. Occasionally, after 

running the code in the environment, the editor would start to behave strangely. Whenever I deleted 

or cut a line or block of codec, the same code would be duplicated just below, at least once. This became 
ery annoying, not to mention dangerous. After trying quite a few things, it turned out to be this: 


In my closing down routines I had closed one file that hadn't in fact been opened. So after running 


| es the project once, something was closed that shouldn't have been, and the editor became unstable. It 
ays to be careful, doesn't it? 


Removing Group Icons 


4 \"Is there any way to remove groups from program manager using the setupkit included 
f with VB?" was the question posed recently on GUI's Oz-E-Mail Forum, and it had us 
H| stumped. Steve Jackman was trying to remove all of the icons currently in the group and 
# then recreate the group with only the icons he required. He had tried changing the 
CreateGroup below to DestroyGroup and DeleteGroup but neither seemed to work, for 
example : 
x.Labell.LinkTopic = "ProgMan|Progman" 
x.Labell.LinkMode = 2 


x.Labell.LinkExecute "(CreateGroup(" + groupname$ + Chr$ (44) 
GroupPaths$ + ")]" 


RE: Removing Group Icons 


j Dermot Balson, in conjunction with Steve, solved the problem by adapting the lines in the 
| VB setup routine that add icons, by changing CREATEGROUP to DELETEGROUP, and 
fremoving the path parameter : 

| x.Labell.LinkExecute "[DeleteGroup(" + groupname$ + ")]" 

j Removing icons can be done with the command Replaceltem : 


ice: x.Labell.LinkExecute "[Replaceltem(" + IconTitle$ + ")]" 


j When you know the answer it is obvious, but in any create icon routine there must be a 


idelete icon routine - otherwise you would end up with two identical icons. Therefore, the 
fanswer was in the setupkit all along! 
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Just a thought regarding 
| companies who hire outside 
| contractors to handle some of 
those really tough tasks. I 
have been contracting on 
| mainframes for the last eleven 
years, and the only thing I had 
to worry about was the 
location of my desk and my 
logon name. Now with PC 
hardware and _— software 
{ changing so quickly it is hard 
for lan managers to keep up 
with software installation. I 
have a very small network at 
home which I find I spend a 
considerable amount of time 
| in maintenance. 


As with all technical people i have ee over the vast ae T have ave on eee 
earth, they make great doers and p: soph chassis haan but when it comes, 


~ Hence the need for a marketing person. 


“When 1 was approached in November 92 to become this mad idiot marketing person 
' ho would fit in with all the others at GUI, Mark said then it would be a erases 
2 a usual. he was not wrong. 


Firstly the ee to do was in fact find out what GUI does. No small task! Then to find 
_ out if there was a market place for what they do well. No small task! 


the ae it came down to the fact that GUI’s strengths are its people, no surprise thei 
- and the eee that ne people have in a particular field of of expertise i. fe 
VB/Windows ; apps. 


Talking t to alot as asi did, earlier this year, and following on with the survey, we 
int a anes need for nen wey Projects, both getting them ‘started and in fat 
elas them 0 out. 


The point is that I find myself 

spending valuable time 
{ installing Access, Winword, 
and VB at client sites. My 
thought is that lan managers 
have the Installable version 
on the ian as soon as the 
software is purchased. Then, 
before a new user arrives, the 
software is installed to the 
local drive from the lan. 
When the new user docs 
arrive it then scems they were 
expected and they can 
thercfore get to work 
| immediately. 


offer and 1 thought by now most of the world would know about what we do. Well they 
certainly know who we are, VBA 93 took care of that, but something still got lost i in 
the translation as to ‘what we do and do well. 


A cry of anguish from the Grieger Room, followed closely by one from the Wone Fonte 
had me es who we had not fed this time. (Nuts are strictly for — GUL is 
fed on Rocket Fuel). 


The thing that was upsetting people was that we seem to be still considered as those 
people who sell Development Tools to the VB market place and who, if you talk to _ 
them nicely, will help you over the phone to get started but where do vn go to get real 
assistance. 


Well folks try GUL ‘Computing. 


GUI -cirenily has nine programming staff who are employed by us to work with you 
on projects both out on site and in our office. Our rates are very reasonable, as listed i ao 
the Corporate Profile, and our skills are broad and varied. 


So look no further, when you. need to hire experienced VB Technical Consultants 
/Developers/Programmers/whatever, to work along side your team so they can get the 
benefits of working with the GUI team, who are undoubtedly the No 1 VB/Windows 
apps development team in Australia. If you don’t believe it try asking some of our 
clients. €. g. BP, JMH, Victorian Government, Woodards to name but a few. 

Better still call me fora Corporate Profile and lets sit down and talk about YOU. 


See you in Sydney for VBA oattt 


re 
Se ee es Be aetna a Gol 


Taree Propositions 

1. Software engineering is like 
{looking for a black cat in a 
dark room. 

2. Systems engineering is like 
|}looking for a black cat in a 
fidark room in which there is 
a no cat. 


1}3. Knowledge engineering is 
|| like looking for a black cat in 
. ‘fla dark room where there is no. 
~{}cat and someone yells, "J got 
Ajit!" 
||From a bulletin board at 
Syntelligence Corporation. 


19 


Australian Visual Developers’ Forum 
Mi Qsoft 
2 Word For Winoows 


Stephan Grieger 
GUI! Computing 


What can I say about this little utility. Basically, this routine 
will take a text file created by any application and use this to set 
up menus for a file merge in Word. The format of the text file 
needs to be the following. 


The first line has to be a comma delimited and enter terminated 
list of all the fields. After that you have the actual data. For 
example, the following text file has three fields, FirstName, 
LastName and Phone, with the data below corresponding to 
these fields. 


FirstName, LastName, Phone 
Stephan, Grieger,555-9484 
Steven, Jeavock, 555-8253 
Robert, Munoz, 555-3732 


When you run this macro, Word will create three menu items 
with associated macros called FirstName, LastName and Phone 
into the Insert menu item. When you click on one of these 
menu items, Word will insert a Mail Merge field for that field 
linked to the Text file. 


This means that you can create a standard text file from any 
application and use that file as a Mail Merge document through 
Word. Cute. 


[Sub MAIN 

iToolsOptionsMenus .Context = 1, .Menu = 
"sInsert", .Name = "-~-~------+----- " oY 
-«MenuText = \ 

1 SS DO eR TON Rp DODO " -Add 


* , 
Qpen "C:\Data\Tést\Fields.?Txt" For Input As’ 
#1 
While a$ <> Chrs$(13) 
a$ = Input$(1, 1) 
Lf a$Se<> "And as<> Chrs$.(13):) Then 
FieldNameS = FieldNamesS + as 


|If a$e=.",;".Or a$ = Chr$(13) Then 
ToolsMacro .Name = FieldName$, .Edit, .Show=¢ 
2, Description = "", -\ 

-NewName = "" 
Insert \ 
i"FileOpenDataFile .Name =" + Chr$(34) +¢ 
|"C:\Data\Test\Fields.Txt" \ \ 
|+ Chr$(34). 4.0, -ReadOnly = "+ " 0,2 | 
.PasswordDoc. = " + Chr$(34) + Chr$(34) \ 
fe ae NSH 
InsertPara 
Insert \ 
",PasswordDot = " + Chr$(34) 4+ Chrs (34) 
InsertPara 
!Insert \ 
/"InsertMergeField sMergeField = "+Chr$(34) +? 
|\FieldName$ + Chr$ (34) + \ 

",>.WordField = - 1" 
i\DocClose 1 


ToolsOptionsMenus .Context = 1, .Menu = 

"gInsert", .Name = FieldName$, \ 
-MenuText = FieldNames, .Add 

FieldName$ = "" 

End If 

Wend 

End. Sub 
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Gor tHe PINPOINT? 


Barry Sumpter, GU! Computing 


Remember the trace function in basic. I 
remember spending hours deciphering the scroll 
of numbers filtering down the page and trying to 
catch them before they fell off the page with 
<Ctrl> S. Getting nauseous? We'll don't. 


Avanti Software Inc. has given VB (and C++) a 
product for tracing code called PINPOINT. This 
little gem automates debugging code. Just tell 
PINPOINT which .mak file to work with and it 
automatically backs up the project and inserts 
PINPOINT function calls into the form of your 
choice. PINPOINT 
also automatically adds 
its own .bas files (for 
the function calls) to 
your project. 


Now all you need to » 
have is PINPOINT 
running with the VB 
app (either in 
development or .exe), and PINPOINT will 
register each routine. Each register gives you the 
Relative/Absolute time allowing you to see how 
long a routine may be taking. I really appreciate 
this function which allows me to calculate the 
efficiency of my code without Time statements. 
The register also includes the level number 
indicating just how deeply nested routines are. 
Then we have the automatically indented Begin 
and End function names with their return values 
(absolutely beautiful!). 


Avanti Software Ine. 


Although you can leave the PINPOINT function 
calls in your distributed app since the function 
will make an immediate return if PINPOINT isn't 
running simultancously, it’s just to casy to tell 
PINPOINT to remove the functions and you do 
not have to worry about slowing the app. 


At first I was put off by the size of the doco book 
(34 pages - more that half of which was C++ 
instructions), but I warmed up quickly as I found 
how simple PINPOINT was to work with. I also 
gave a start sceing WARNING: if your program 
crashes at any time ...... run chkdsk. This is the 
first doco I've read which has even mentioned a 
crash never mind what to do if. 


For a version I, PINPOINT performs well and 
answers many of my questions regarding 
execution time. I'll be watching closely for the 
next version. 


Baron 
Using Long Variaptes 


TO TRANSFER DATA 


The [Param parameter to a window message 
will frequently point to a data structure. Many 
callback functions also use pointers. In some 
cases you simply need to examine values in the 
structure. In others you may need to change 
values in the structure. 


The trick to doing this is to dimension an 
object of the referenced structure type in the 
event code itself. You can then use the 
dwCopyData function to copy the data to and 
from the structure. 


For example: you can define a structure to 
transfer two integers and a string: 


Type YourStruct 

A As Integer 

B As Integer 

S As String * 40 
End Type 


Sending the data via a message is casy. The 
source form or application uses SendMessage 
as follows: 


Dim YS As YourStruct 


SendMessage(desthwnd, msg, wp, YS) 


This causes a pointer to structure YS to be 
passed as the |Param parameter. You can 
receive and process it as follows: 

AS 
As 
As 


Integer, 
Integer, J 
Long, 2 


Sub WndMessage(wnd 
msg As integer, wp 
ip As Long, retval 
nodef As Integer) = 
Dim YS2 As YourStruct 

‘ Get a copy of the structure 


dwCopyData By Val lp, YS2,¢ 

Len (YS2) 

‘ Now you can access the datad 
using 

‘ the fields in YS2 

RS = ¥S2'.A 

Y¥S2.S = “New string data” 

‘ To set data into YS, copy thed 
data 

‘ back as follows 

dwCopyData YS, ByVal lp, Len(YS2) 


End Sub 


Be very careful using the dwCopy Data 
function. You will always need to specify the 
ByVal keyword for Ip. Be sure that the size of 
the structure is correct. It also a good idea to 
check if Ip is zero before attempting a copy. 


Mi Qsoft 
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The SendMessage API function is used to send 
Windows messages to other applications. 
Unfortunately, there is frequently confusion on 
how to handle the [Param parameter which is 
defined to be “As Anv”. The declarations that we 
provide in the Visual Basic Programmer's Guide 
to the Windows APJ are as follows: 


Declare Function SendMessageBynum 
& Lib “User” Alias “SendMessage” 
(By Val h Wnd%, ByVal wMSG$, # 
ByVal xParam%, ByValParamé) 


Declare Function SendMessage& Lib# 
“User” (ByVal hWnd%, ByVal wMsgi, 3 
ByVal wParamt, ]Param As Any) 


i" yy 
Declare Function ¢& hy Wal! 
‘SendMessageByString& Lib “User”? tl 

Alias “SendMessage” HI 
(ByVal hWnd’, ByValwMsg%, | 
wParam&S, ByVal 1Param$) Tn 
gl 


iy, 
"Till 
_ 
un 


ByVal? 


1 recommend that you use the aliased versions 
where possible tc prevent errors, but here is a 
bricf summary of how to send values, strings, 
structure addresses and nulls. 


When the message expects a string : 


dl& = SendMessageByString (hwnd, # il 
MSG, wParam, 1Param$) Hi 
or 

dls = SendMessage (hWnd, MSG, # 

wParam, iParam$) 


ny 
| 


When a message expects a NULL value (can 
substitute a long variabic as well) : 


i (i 
SendMessageByNum (hWnd, MSG, ? f lh 


qdl& = 

wParam, 0) ha 
or \" 
dl& = SendMessage (hWnd, MSG, # il il 


wParam,ByVal (0&) 
(must be long type!) 


| Hil al 
eee ee ill 

When a message expects a pointer to a structure 
or numeric variable : l Lie 


Mit 


(y 
"4, 4) 
TT Ht 


cD 


dls& = 
wParam, 


SendMessage(hWnd, MSG, @# 


1Param) 
(Param is any variable or structure) 


You can see how the aliased versions 
significantly reduce the chance of error, since 
the declaration takes care of both adding the 
ByVal and forcing the parameter to be passed as 
the correct type. 
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I am using the PopupMenu command in VB 
* and would like to have multiple popups on the fF 
same menu. Why is it not working when If 
have the visibility set false ? ; 


Good question. Whilst one popupmenu will 

* work fine when the visibility is false, anymore é 
and it will no longer work. This is a shortcoming of F 
VB and hopefully will be rectified in the nextP 
release. The only workaround is the menu items q 
must be visible. q 


le eas 


- and I would like to know why my} 


GetSaveFileName function isn't working. 


A The problem you had is in explicitly using the q 
« function name without aliasing it. Thus the & 


correct form should be: 


| Declare function MyFileSaveDialog Lib "wherever : 
it is" Alias "GetSaveFileName" ( param], ...paramp 
n). Where MyFileSaveDialog is what we will 
abitrarily now refer to in future every time we want F 


to use the GetSaveFileName function. 


Using Spread/VBX, how do I set the colours of 
* the row headers? 


A Use spread] .shadowtext= rgb(r,g,b). 


0. Is there any way to implement Undo without major pain? 


For most controls, there's no easy way - you have to keep 

* track of changes in code. However, if you use the standard 
Text box or Combo box, Windows handily provides a "free" undo 
function : 


"Declarations 
Declare Function SendMessage Lib "User" (ByVal? 
hWnd As |Integer, ByVal wMsg As Integer, ? 

ByVal wParam As Integer, lParam As Any) As Long 
Giobal Const WM_USER = &h400 

Global Const EM_UNDO = WM_USER + 23 


‘The "undo" subroutine (a result of -1 indicates error) : 


UndoRes = 
0; 0) 


SendMessage (myControl.hWnd, EM_UNDO, & 


0 How do I pass a dynaset as an array > 
* toa function? a 


A This is the form load event. 


Sub Form _Load () 

'Dim the Dynaset Array? 

with one element. 

Static DSInvoice(0) As # 
dynaset 

‘Open the database. 

Set db = # 
OpenDatabase ("C:\VB\ 
Biblio.Mdb ") 

'Call the Function ¢ 
passing the entire array over. 

‘Tf you do not pass thed 
entire array, then the ?# 
function 

‘will not work. 

ResetInvoices DSInvoice() 
End Sub 
Declarations section of the¢d 
module. 
Global DB As database 
Sub proc. in the module. 
#'Accept the entire array. 
Sub ResetInvoices (D(} As? 
Dynaset) 

*Set up the SQL statement. 

SQL = "Select * From? 
Authors" 

‘Work only on array? 
element one. 

Set D(O) = 2 
DB. CreateDynaset (SQL) 
End Sub 


Why can't I print reports for the 
* current page in ToolBook 3? This 
code used to work and now won't : 


start spooler 
print 1 
end spooler 


A This is a bug. The simple workaround 
* is to get the name of the page you wish 
to print, then explicitly reference it in the 
Start Spooler - End Spooler block. For 
example. 

get name of this page 

start spooler 

go to page it 

print 1 

end spooler 


Australian Visual Developers’ Forum 


I am using TrueGrid Pro in unbound mode and wish 4 
* to print the contents of the grid. How do I do it ? 


Dim db as Database Be 
Set db=OpenDatabase("database.mdb") : : : 
° 4 A You can't. The DLL that ships with truegrid that 


* controls printing (PBBND.DLL) is designed to pro-f} 
duce a report in crystal that represents bound data or query : 
thereon. The only method I know of to produce an unbound F 
report would be to use the PrintForm method in VB. : 


Let db.TableDefs("old tabled 
name") .Name="new table name" 


I am using Spread. VBX and would} 
« like to know how to set the colours of : 
the row headers. - 


Use Spread1.ShadowText 4 
e RGB(t,g,b). Where r, g, b refer to the g 
red, green and blue values required. 


There is a problem with the Activate and De-Activate events in 
Visual Basic. To try this, place MsgBox "Form1:Activate" into > 
the Activate event of Forml. Place MsgBox "Form1:De- 
Activate" into the Deactivate event of Forml. Repeat the steps 
for Form2. Into the Click event of Form1, place the code 
Form2.Show. You will see Forml's code trigger, but not 
Form2's. Loading the form first will not get you round this 
problem either, nor will loading the form modally. 


Ba Salsa 


Wee ee 


pas eps 


Thanks goes to Paul Lane for finding this inventive bug. 
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How do I pass control names and forms as} 


How can | call a minimized DOS program> 
; variables to subroutines? 


0. from VB? 


DOS programs run minimized using the Here are two quick examples: 
. SHELL command never return control to VBE 


program because DOS tasks by default arey Commandl Click () 


NOT setup to run in the background. The best} 
method of getting around this is to construct a PIF a 
file for the program in question with the 
"Background" option checked. Then just SHELL tof 
the PIF to run the DOS app. Control then returns tof 
your VB app when the DOS app terminates. : 


Soreness 


Textl.Text = "Bingo" 
Call SetText (Textl) 
End Sub IK 
Sub SetText (CtlName as Control) 
CtlName.Text = "Bongo" 
End Sub 
Command1l Click () 
Call SetSize (Me) 
End Sub 
Sub SetSize (FrmName as Form) 
FrmName.Width = 100 
End Sub 


STEVEN JEAVOCK 


TECHNICAL SUPPORT CO-ORDINATOR 


Australian Visual Developers’ Forum 


Mi QsoFt 
Mac SoMa! 1111 


Stephan Grieger 
GUI Computing 


Dedicated Windows users have been continually 
plagued by Macintosh users saying that Windows is 
a direct rip off of the Mac environment. It seems 
that no matter what we say or do, Windows will 
always be an inferior product to the Macintosh. 
Well, having listened to this long enough I finally 
decided to do something about it. Those unfortunate 
souls that have had Mac experience or even those 
who have scen a Mac may recall the way it brings up 
a form. Essentially you get a rubber band expanding 
out to the size of the form before its displayed. The 
VB code listed below will produce much the same 
effect. The only difference with this version and its 
Macintosh counterpart is that it starts at the bottom 
right hand corner and ends up at the top left hand 
corner. A little bit of re-coding will make it look 
identical to the Mac version however. 


os, |s Freebie a FReetie? 


Stephan Grieger GUI Computing 


I recently worked on a project where I needed to 
open two files one after the other. Being a 
programmer that likes to do everything fairly 
structured, I used the following cede; 


"Assign File numbers. 

Filel FreeFile 

File2 FreeFile 

"Open Files 

Open "C:\Testl.Txt" For Input Asd 
Filel 

Open "C:\Test2.Txt" For Input Asd 
File2 


However, when I ran this, I got a ‘File Already 
open.’ error on the second open. Thinking that I 
didn't close a file previously, I checked all my opens 
and closes elsewhere and confirmed that I did 
actually behave myself. 


So, going back to the code above, I tested the two | 
values of File] and File2 and found that they both 
equalled cach other. I then modified the code to 
read as follows and found that it worked. 


Open Files 

Filel FreeFile 
Open "C:\Testl.Txt" For Input As# 
Filel 

File2 FreeFile 

Open "C:\Test2.Txt" For Input As# 
File2 

The reason, I assume, is that VB does not actually 
assign a new free file number until Filel is in use, | 
which kinda makes sense. Just a little Gotcha. 


Type Rect 

Left As Integer 

Top As Integer 

Right As Integer 

Bottom As Integer 
End. Type 
Global X1%, Y1%,. X2%,°-Y2% 
Declare Sub SetRect Lib "User" (lpRect As Rect, # 
ByVal .X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) 
Declare Sub DrawFocusRect Lib "User" (ByVal d 
hDC%S, IpRect As Rect) 
Declare: Function GetWindowDC%$ Lib "User" (ByVal d 
hWnd3} 
Declare Function ReleaseDC% Lib "User" (ByVal? 
hWnd’, -ByVal hDc%) 
Declare Sub GetWindowRect Lib "User" 
hWnd%, lpRect As Rect) 
Declare Function GetDesktopWindow% Lib "User" () 
Sub Form Load {) 
Dim RC As: Rect 
Dim FormRC As Rect 
Dim MDIRc As Rect 
‘Get the position of the window relative tod 
screen. : 


(ByVal? 


ct 


he 
Me. Left 


Downy 
"Convert 
Pixel sY% 


Twips to Pixels. 

Screen. TwipsPerPixely 

Pixel sx$% Screen. TwipsPerPixelx 

"Get the size of the window including thed 

Client. area. 

Call GetWindowRect (Me.hWnd, FormRC) 

‘Get the handle to the windows screen which 

is where we will be drawing our rubber band. 
ScreenhWnd% GetDesktopWindow {) 
'Get the bounds of Windows. This willd: 

accommodate all screen resolutions. 


Non 


Call GetWindowRect (ScreenhWnd%, MDIRc) 

"Set some parameters up. ; 

X1% = -FormRC.Left -— MDIRc.Left 

X25 = -FormRC.Right’ + ((X -— Downx) /# 
Pixel sx) 

Y2% = FormRC.Bottom + ((Y - Downy) /¢ 
Pixel sY%) 


"Get the Device Context of the windows? 
background so that we can draw on it. 
DCS GetWindowD¢ (ScreénhWnd3) 
‘Step through. 
For t = X2% To:X1% Step..-2 
X1% (t) 
Y1% (t) 
"Set up the rectangle that we will draw. | 
SetRect ‘RC, XLS, Y1S,; -X¥2%, 2% 
"Draw a Focus rect which will act as? 
our rubber band. 
DrawFocusRect DC%, RC 
"Release the DC or we will run out of d 
resourses. : 
ers ReleaseDC (Me.hWnd, DC%) 
"Draw the focus rect again to hide it. 
DrawFocusRect DC%3, RC 
"Again, release the DC. 
: ers ReleaseDC (Me.hWnd, DC%) 
Next t 


End Sub 


rosoft 


So} Access Tip 


Mic, 


FAST SCREEN REDRAWS UNDER HEAVY LOAD 

All you need to do is let Windows catch up on its 
housckeeping. Issue DoEvents immediately after a dialog 
form is closed and ‘Windows will redraw the screen 
properly and swiftly. Where you can get into strife here is 
with re-entrancy — what if you use DoEvents in the 
middie of an event handler, and the user manages to 
trigger the event before the event handler runs to 
completion? 


PREVENTING RE-ENTRANCY 
Gate anything which cannot tolerate re-entrancy. Here’s a 
sample gated button click event handler. 


Sub MyButton Click() 

{On Error GoTo Err MyButton Click 

‘gated 

Static flagBusy As Integer 

If flagBusy Then Exit Sub 

Let flagBusy = True 

| (your code) 

;Exit!MyButton Click: 

| Let flagBusy 

Exit. Sub 

;Ecr MyButton. Click: 

MsgBox Error$, MB ICONEXCLAMATION, < 

i“Error in MyButton Click” 
Resume Exit.MyButton_Cli 

End Sub 


False 


{ 


ck 


Coping wit “Opxect Has No vatue”, “UNKNOWN NAME” 
Don’t tell me, let me guess: your form’s Load event 
handler refers to something on a subform, and you get one 
of these errors. but if you press FS to continue running it 
works fine. 


This is a thread synchronisation issue. Welcome to the 
joys of true multitasking! The problem is that your codc 
has gotten ahead of Access. While you're reading the 


ae 
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screen, Access gets a lot donc, so by the time you press F5, 
the object has been assigned a value and all is well. Access 
Basic makes no explicit provision for controlling thread 
synchronisation, so all you can do is trap the error and 
retry until the other thread is ready. Your code will look 
something like this: 


| Sub Form Load () 
On Error GoTo Err. Form Load 
‘gated i 
Static flagBusy As Integer 
If flagBusy Then Exit. Sub 
Let flagBusy True 
Dim MyVar As Variant 


‘ This next line will fault because? 
of thread sync probs 

Let MyVar =? 
Me! [ASubFormControl].Form! [AControl] .Value 


Exit Form Load: 
Let flagBusy = False 
Exit. Sub 
Err Form Load: 
Select Case Brr 
Case 2424, 2427 ‘Unknown name, 3 
Object has no value 
DoEvents ‘a dead loop would @? 
| stop other apps | 
Resume 0 ‘have another go at? 


\ 
{ 
i 
| 
! 


same line 

Case Else 
| MsgBox Error$,@ 
[MB ICONEXCLAMATION, “Error ip Form Load” 
Resume Exit Form Load 
| End Select | 
End Sub 


Note the use of a Select statement imstead of an If 
statement in the crror handler. This makes it trivially easy 
io extend for custom handling of other exceptions. 


| Aware/VBX 1.0. 


Australian Visual Developers’ Forum 


As scientists and concerned citizens, 
we applaud the recent trend towards 
legislation that requires the 
prominent placing of warnings on 
products that present hazards to the 
general public. Yet we must also 
offer the cautionary thought that such 
warnings, however well-intentioned, 
merely scratch the surface of what is 
really necessary in this important 
area. This is especially true in light of 
the findings of 20th century physics. 


We are therefore proposing that, as 
responsible scientists,we join together 
in an intensive push for new laws that 
will mandate the conspicuous 
placement of suitably informative 
warnings on the packaging of every 
product offered for sale in the United 
States of America. Our Suggested list 
of required warnings appears below. 


Warning: This Product Warps Space 
and Time in Its Vicinity. 


Warning: This Product Attracts 
Every Other Piece of Matter in the 
Universe, Including the Products of 
Other Manufacturers, with a Force 
Proportional to the Product of the 
Masses and Inversely Proportional to 
the Distance Between Them. 


Caution: The Mass of This Product 
Contains the Energy Equivalent of 85 
Million Tons of TNT per Net Ounce 
of Weight. 


Handle with Extreme Care: This 
Product Contains Minute Electrically 


Charged Particles Moving at 
Velocities in Excess of Five Hundred 
Million Miles per Hour. 


Consumer Notice: Because of the 
‘Uncertainty Principle,| It Is 
Impossible for the Consumer to Find 
Out at the Same Time Both Precisely 


Where This Product Is and How Fast 
It Is Moving. 


Advisory: There is an Extremely 
Small but Nonzero Chance That, 
Through a Process Known as 
‘Tunnelling’, This Product May 
Spontancously Disappear from Its 
Present Location and Reappear at 
Any Random Place in the Universe, 


Including Your Neighbours 
Domicile. The Manufacturer Will 
Not Be Responsible for Any 


Damages or Inconvenience That 
May Result. 


Read This Before Opening 
Package: According to Certain 
Suggested Versions of a Grand 
Unified Theory, the Primary 
Particles Constituting This Product 
May Decay to Nothingness Within 
the Next Four Hundred Million 
Years. 


This is a 100% Matter product: In 


the Unlikely Event That This 
Merchandise Should Contact 
Antimatter im Any Form, a 


Catastrophic Explosion Will Result. 


Public Notice as Required by Law: 
Any Use of This Product, in Any 
Manner Whatsocver, Will Increase 
the Amount of Disorder in the 
Universe. Although No Liability Is 
Implied Hercin, the Consumer Is 
Warned That This Process Will 
Ultimately Lead to the Heat Death of 
the Universe. 


Note: The Most Fundamental 
Particles in This Product Are Held 
Together by a ‘Gluing’ Force About 
Which Little Is Currently Known 
and Whose Adhesive Power Can 
Therefore Not Be Permanently 
Guaranteed. 


There are two ways of constructing a software design: 


A Cart for More Scientific TRUTH IN Propuct WARNING LaBEls 


Attention: Despite Any Other Listing 
of Product Contents Found Hereon, 
the Consumer Is Advised That, in 
Actuality, This Product Consists Of 
99.9999999999% Empty Space. 


New Grand Unified Theory 
Disclaimer: The Manufacturer May’ 
Technically Be Entitled to Claim That 
This Product Is Ten-Dimensional. 
However, the Consumer Is Reminded 
That This Confers No Legal Rights 
Above and Beyond Those Applicable 
to Three-Dimensional Objects, Since 
the Seven New Dimensions Are 
‘Rolled Up’ into Such a Small ‘Area’ 
That They Cannot Be Detected. 


Please Note: Some Quantum Physics 
Theories Suggest That When the 
Consumer Is Not Directly Observing 
This Product, Jt May Cease to Exist or 
Will Exist Only in a Vague and 
Undetermined State. 


Component Equivalency Notice: 
The Subatomic Particles (Electrons, 
Protons, etc.) Comprising This 
Product Are Exactly the Same in 
Every Measurable Respect as Those 
Used in the Products of Other 
Manufacturers, and No Claim to the 
Contrary May Legitimately Be 
Expressed or Implied. 


Health Warning: Care Should Be 
Taken When Lifting This Product, 
Since Its Mass, and Thus Its Weight, 
Is Dependent on Its Velocity Relative 
tothe User. 


Important Notice to Purchasers: 
The Entire Physical Universe, 
Including This Product, May Onc Day 
Collapse Back into an Infinitesimally 
Small Space. Should Another 
Universe Subsequently Re-emerge, 
the Existence of This Product in That 
Universe Cannot be Guaranteed. 


One way is to make it so simple that there are obviously no deficiencies, and the other ee is to 
make it so complicated that there are no obvious deficiencies. 


OAR Hoare 
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ScREEN Capture FROM VB 


always casy to achieve. The code below does the job nicely. 
"Declares for Screen capture 
Option Explicit 
Type POINTAPE *4 Bytes-Synonymous with LONG 
Xx As Integer 
¥ As Integer 
End Type 
Global Const PS boT 
Global Const R2 XORPEN 
Global Const NULL BRUSH = 5 
Declare Function CreatePén’ Lib "GDI"? 
(ByVal nPenStyle%, ByVal nWidth3, Byvald 
FcrColors) 
Declare Function DeleteObject% Lib eopind 
(ByVal hObject?) 
Declare Function SetCapture%’ Lib "User"? 
(ByVal hWnd?) 
Declare Function CreateDC® Lib "GbDI"d 
(ByVal lpDriverNameS,lpDeviceName As Any, ? 
lpOutput As. Any, lpInitData As Any) 
Declare Function GetDeskTopWindow’s Lib? 
"Wser" () 
Declare Function SetROP2% Lib "GDI" (ByVal? 
hDC%3, ByVal nDrawMode$) 
Declare Function SelectObject% 
(ByVal hDC%, ByVal hObject%) 
Declare Function Rectangle$ Lib “GbI"? 
(ByVal hDC%, ByVal X1%,; ByVal Y1%, Byvald 
R235, ByVal Y2%) 
}Declare Function BitBlt% Lib "GDpI"d 
{ByVal hDestDC%, ByVal X%, ByVal Y3,@ 
ByVal nWidth?, ByVal. nHeight%, ByVald 
hSrcDCs, ByVal #STes, ByVal YSrc%, ByVal 
dwRops) 
Declare Function DeleteDC$ Lib "GDI"? 
(ByVal hDC8) 
HasCapture% 
StartPoint As POINTAPIL 
EndPoint As POINTAPT 
DashedPen% 
“Form Load (} 
DashedPen% 
Sub 
Form Resize () 
If WindowState <> 0 Then Exit: Sub 
picturel.Move 0, G, Me.ScaleWidth -? 
command1.Width * 1.2, Me.ScaleHéight 


eee cia 


a eee ee 


Lib "GDI"? 


CreatePen (PS. DOT;..1, 0) 


End. Sub 
isub Form Unload (Cancel As Integer) 
Dim. di% 
If DashedPen% <> 0 Then 
di% = DeleteObject (DashedPen$’) 
End If 
End Sub 
Sub Capturebutton. Click: {) 
Dim di% 


Me.WindowState z 

diz oe ECapeure (pictarel -pvnd) 
Sub 
Picturel MouseMove (Button As Integer, ¢ 
Shift As Integer, x As Single, y As Single). 
If HasCapture% Then : 
DrawScreenBox picturel, StartPoint.x,@ 
StartPoint.y, EndPoint.x, EndPoint.y, 
DrawScreenBox picturel,StartPoint.x, & 


eeannony a portion of the screen is often handy, but not [StartPoint-y, 


StartPoint.y €Int (y) 

EndPoint.x = CiInt (x) 

EndPoint.y = Cint (y) 

HasCapturet = True 
fend Sub 


‘|Then useheight? = 


J|picpt2.x - picptl-x, picpt2.y - picptl-y, 


False] 
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x, ¥, False 
End If 
EndPoint.x. = =x 
EndPoint.y = y 
End Sub 


Sub Picturel MouseDown (Button As Integer, ? 
Shift -As Integer,x As Single, y As Single) 
'This conversion is safe,;as we are »_ing 


ScreenCap.WindowStated 
| “Then Exit > Sub 
StartPoint.x 


CInt (x) 


foot 


Sub Picturel MouseUp? 
(Button As Integer, Shift As Integer, ? 
x As Single, y As Single) 

' If we're not mouse tracking, ¢ 
exit the subroutine 

If Not HasCapture% Then Exit Sub 

DrawScreenBox picturel, StartPoint.x,¢ 
StartPoint.y, EndPoint.x, EndPoint.y, True 
EndPoint.x x 
EndPoint.y = y 
' Blt it here 
HasCaptures 0 
' Restore the original drawing mode 
ScreenCap.WindowState 0 
-picturel.Refresh 
‘End Sub 
Sub DrawScreenBox (pic As PictureBox, Byvald 
x1%,ByVal y1%,ByVal x2%3,ByVal y2%, copyits) 
: Dim scrhwnd$, usedc%, di%, oldrop%, oldpen’ 
Dim picptl As POINTAPI, picpt2 As? 
POINTAPT 

Dim usewidth?2, 


useheights 


scrhwnds = GetDeskTopWindow {j 

usedc$ = CreateDc ("Display”,¢? 
ByVal 0&, ByVal 0&, ByVal 0&) 

oldrop% = SetROP2(usedc%, R2 XORPEN) 

oldpen® = SelectObject (usedc3, ¢ 
DashedPen3s) 


dit = SelectObject (usedc$, J 
GetStockObject (NULL BRUSH) ) 


' Change to screen coordinates 


picpti.x = -x1%: picptl.y =.y1% 
picpt2.x = x28: picpt2.y = y2% 


ClientToScreen picturel-hWnd, picptl 
ClientToScreen picturel.hWnd, picpt2 
di% = Rectangle(usedc%, picpt1.x,@ 
picptl.y, picpt2.x, picpt2.y) 

usewidth’$ = picpt2. x > picptl.x 

If picturel.ScaleWidth < usewidth$? 
Then usewidth? picturel.ScaleWidth 
useheight% picpt2.y - picptl.y. : 
If picturel.ScaleHeight < useheight 
picturel. Beloneiane 


0.8 


pictured cls 
diz = BitBlt(picturel.hDc, 


O.. 


lusedcS, picptl.x, picptl.y, SRCCOPY) 
adi% = DeleteDC (usedcé). 
{End Sub 
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Tired of using: +*SOL*NET 
¢ Informix-STAR 
¢ Ingres-Net 
* CLC, Cl. 


Need to integrate: data from multiple 
data sources at the same time?? 


HyperSTAR 


N, Client/Server Middleware 
¢ Visual Basic 


¢« Microsoft Access 
¢ Powerbuilder 
° etc... 


a One API or 
- ODBCdriver _ 
for ALL RDBMS — 


HyperSTAR provides a singie, Object 
Oriented AP! or ODBC driver that lets you 
concentrate your efforts where you want to - 
in your VB, Access or other development 
tool, instead of pulling your hair out trying to 
get multiple tools, interfaces and APIs to talk. 


Find out how HyperSTAR can save you 
time & money, and open the world of 
multiple, concurrent database applications 
to you and your clients. 


ae: = Phone Madonna on (02) 900 5606, or 


ASIA-PACIFIC _ Fax on (02) 957 6749 
ACN 052 336 213 


